(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      4694,        161]
NotebookOptionsPosition[      4230,        140]
NotebookOutlinePosition[      4574,        155]
CellTagsIndexPosition[      4531,        152]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{
   "How", " ", "to", " ", "convert", " ", "from", " ", "a", " ", "to", " ", 
    "\[Rho]para"}], "Text",
   FontSize->24], 
  StyleBox[",", "Text",
   FontSize->24], 
  StyleBox[" ", "Text",
   FontSize->24], 
  RowBox[{
   StyleBox["and", "Text",
    FontSize->24], 
   StyleBox[" ", "Text",
    FontSize->24], 
   StyleBox["vice", "Text",
    FontSize->24], 
   StyleBox[" ", "Text",
    FontSize->24], 
   StyleBox["versa", "Text",
    FontSize->24], 
   StyleBox[" ", "Text",
    FontSize->24], 
   StyleBox["as", "Text",
    FontSize->24], 
   StyleBox[" ", "Text",
    FontSize->24], 
   StyleBox["in", "Text",
    FontSize->24], 
   StyleBox[" ", "Text",
    FontSize->24], 
   StyleBox["the", "Text",
    FontSize->24], 
   StyleBox[" ", "Text",
    FontSize->24], 
   RowBox[{
    StyleBox["follows", "Text",
     FontSize->24], 
    StyleBox["?", "Text",
     FontSize->24], "\[IndentingNewLine]", 
    "\[IndentingNewLine]"}]}]}]], "Input",
 CellChangeTimes->{{3.5566437365227423`*^9, 3.5566437419310513`*^9}, {
  3.556643796083149*^9, 3.5566438284600005`*^9}, {3.5566438595967817`*^9, 
  3.556643892916687*^9}, {3.5566439323509426`*^9, 3.5566439364841795`*^9}, {
  3.556643974733367*^9, 3.5566439773725176`*^9}, {3.556644076282175*^9, 
  3.556644107779977*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", 
        RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", 
  RowBox[{"a", "//", "MatrixForm"}]}]], "Input",
 CellChangeTimes->{{3.5566440351178207`*^9, 3.556644035740856*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", 
      FractionBox["1", "2"], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["1", "2"]}], 
      FractionBox["1", "2"], "0"},
     {"0", "0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5566440286644516`*^9, 3.5566440378669777`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Rho]para"], "Input",
 CellChangeTimes->{{3.556643744339189*^9, 3.556643750787558*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"\<\"\[LeftBracketingBar]\[Beta]\[Alpha]\[RightAngleBracket]\"\>",
      ".", "\<\"<\[Beta]\[Alpha]|\"\>"}], "-", 
    RowBox[{"\<\"\[LeftBracketingBar]\[Beta]\[Alpha]\[RightAngleBracket]\"\>",
      ".", "\<\"<\[Alpha]\[Beta]|\"\>"}], "-", 
    RowBox[{"\<\"\[LeftBracketingBar]\[Alpha]\[Beta]\[RightAngleBracket]\"\>",
      ".", "\<\"<\[Beta]\[Alpha]|\"\>"}], "+", 
    RowBox[{"\<\"\[LeftBracketingBar]\[Alpha]\[Beta]\[RightAngleBracket]\"\>",
      ".", "\<\"<\[Alpha]\[Beta]|\"\>"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5566437516066046`*^9}]
}, Open  ]]
},
WindowSize->{707, 761},
WindowMargins->{{Automatic, 94}, {44, Automatic}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1321, 46, 102, "Input"],
Cell[CellGroupData[{
Cell[1903, 70, 641, 18, 52, "Input"],
Cell[2547, 90, 875, 26, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3459, 121, 102, 1, 31, "Input"],
Cell[3564, 124, 650, 13, 47, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
